% ed's
input font1base
proofing:=1;
vardef char.P =
setwidth .7em;
pos1(thickwidth,0);
pos2(1.05thickwidth,10);
pos3(thickwidth,-90);
pos4(.4[thickwidth,thinwidth],-105);
pos5(.8[thickwidth, thickwidth],-140);
pos6(thickwidth,180);
pos7(.2[thickwidth,thinwidth],150);
pos8(.8[thickwidth,thinwidth],115);
pos9(thinwidth,90);
z1l=(.1w,capheight);
y3l=capheight;
x3=x2r=x1r;y2=0;
z9=(x3,4.65xheight);dz9=(-1,-0.1);
z6=(thickwidth-0.1w,.95xheight);
x4=.5[x3,x6];y4=.1[y3,y6];
x8=.5[x6,x9];y8=.12[y9,y6];
x5=.8[x4,x6]; y5=.6[y4,y6];
x7=.8[x8,x6]; y7=.6[y8,y6];
tracingedges:=1; tracingchoices:=1; tracingcommands:=3; tracingonline:=1;
stroke(1,2,.1,.1,0);stop;
stroke(3,4,0,0,0 );stop;
curve(4,5,6); curve(6,7,8);
stroke(8,9,.2,0,.2);

labelpos(1,2,3,4,5,6,7,8,9);
enddef;
test.normal(char.P);
%test.bold(char.P);
%test.boldx(char.P);
end